home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / subfrm / subfrm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-07  |  6.3 KB  |  227 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Sub Form Example"
  4.    ClientHeight    =   2385
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   5055
  8.    Height          =   2790
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2385
  12.    ScaleWidth      =   5055
  13.    Top             =   1140
  14.    Width           =   5175
  15.    Begin CommandButton Command1 
  16.       Caption         =   "Ok"
  17.       Default         =   -1  'True
  18.       Height          =   495
  19.       Left            =   1800
  20.       TabIndex        =   9
  21.       Top             =   1680
  22.       Width           =   1215
  23.    End
  24.    Begin VScrollBar VScroll1 
  25.       Height          =   1005
  26.       Left            =   4320
  27.       TabIndex        =   8
  28.       Top             =   360
  29.       Value           =   1
  30.       Width           =   255
  31.    End
  32.    Begin Data Data1 
  33.       Caption         =   "Data1"
  34.       Connect         =   ""
  35.       DatabaseName    =   "C:\VB\BIBLIO.MDB"
  36.       Exclusive       =   0   'False
  37.       Height          =   270
  38.       Index           =   3
  39.       Left            =   120
  40.       Options         =   0
  41.       ReadOnly        =   0   'False
  42.       RecordSource    =   "Authors"
  43.       Top             =   1080
  44.       Visible         =   0   'False
  45.       Width           =   1140
  46.    End
  47.    Begin TextBox Text1 
  48.       DataField       =   "Au_ID"
  49.       DataSource      =   "Data1(3)"
  50.       Height          =   285
  51.       Index           =   3
  52.       Left            =   1320
  53.       TabIndex        =   7
  54.       Text            =   "Text1"
  55.       Top             =   1080
  56.       Width           =   615
  57.    End
  58.    Begin TextBox Text2 
  59.       DataField       =   "Author"
  60.       DataSource      =   "Data1(3)"
  61.       Height          =   285
  62.       Index           =   3
  63.       Left            =   1920
  64.       TabIndex        =   6
  65.       Text            =   "Text2"
  66.       Top             =   1080
  67.       Width           =   2415
  68.    End
  69.    Begin Data Data1 
  70.       Caption         =   "Data1"
  71.       Connect         =   ""
  72.       DatabaseName    =   "C:\VB\BIBLIO.MDB"
  73.       Exclusive       =   0   'False
  74.       Height          =   270
  75.       Index           =   2
  76.       Left            =   120
  77.       Options         =   0
  78.       ReadOnly        =   0   'False
  79.       RecordSource    =   "Authors"
  80.       Top             =   840
  81.       Visible         =   0   'False
  82.       Width           =   1140
  83.    End
  84.    Begin TextBox Text1 
  85.       DataField       =   "Au_ID"
  86.       DataSource      =   "Data1(2)"
  87.       Height          =   285
  88.       Index           =   2
  89.       Left            =   1320
  90.       TabIndex        =   5
  91.       Text            =   "Text1"
  92.       Top             =   840
  93.       Width           =   615
  94.    End
  95.    Begin TextBox Text2 
  96.       DataField       =   "Author"
  97.       DataSource      =   "Data1(2)"
  98.       Height          =   285
  99.       Index           =   2
  100.       Left            =   1920
  101.       TabIndex        =   4
  102.       Text            =   "Text2"
  103.       Top             =   840
  104.       Width           =   2415
  105.    End
  106.    Begin Data Data1 
  107.       Caption         =   "Data1"
  108.       Connect         =   ""
  109.       DatabaseName    =   "C:\VB\BIBLIO.MDB"
  110.       Exclusive       =   0   'False
  111.       Height          =   270
  112.       Index           =   1
  113.       Left            =   120
  114.       Options         =   0
  115.       ReadOnly        =   0   'False
  116.       RecordSource    =   "Authors"
  117.       Top             =   600
  118.       Visible         =   0   'False
  119.       Width           =   1140
  120.    End
  121.    Begin TextBox Text1 
  122.       DataField       =   "Au_ID"
  123.       DataSource      =   "Data1(1)"
  124.       Height          =   285
  125.       Index           =   1
  126.       Left            =   1320
  127.       TabIndex        =   3
  128.       Text            =   "Text1"
  129.       Top             =   600
  130.       Width           =   615
  131.    End
  132.    Begin TextBox Text2 
  133.       DataField       =   "Author"
  134.       DataSource      =   "Data1(1)"
  135.       Height          =   285
  136.       Index           =   1
  137.       Left            =   1920
  138.       TabIndex        =   2
  139.       Text            =   "Text2"
  140.       Top             =   600
  141.       Width           =   2415
  142.    End
  143.    Begin Data Data1 
  144.       Caption         =   "Data1"
  145.       Connect         =   ""
  146.       DatabaseName    =   "C:\VB\BIBLIO.MDB"
  147.       Exclusive       =   0   'False
  148.       Height          =   270
  149.       Index           =   0
  150.       Left            =   120
  151.       Options         =   0
  152.       ReadOnly        =   0   'False
  153.       RecordSource    =   "Authors"
  154.       Top             =   360
  155.       Visible         =   0   'False
  156.       Width           =   1140
  157.    End
  158.    Begin TextBox Text1 
  159.       DataField       =   "Au_ID"
  160.       DataSource      =   "Data1(0)"
  161.       Height          =   285
  162.       Index           =   0
  163.       Left            =   1320
  164.       TabIndex        =   1
  165.       Text            =   "Text1"
  166.       Top             =   360
  167.       Width           =   615
  168.    End
  169.    Begin TextBox Text2 
  170.       DataField       =   "Author"
  171.       DataSource      =   "Data1(0)"
  172.       Height          =   285
  173.       Index           =   0
  174.       Left            =   1920
  175.       TabIndex        =   0
  176.       Text            =   "Text2"
  177.       Top             =   360
  178.       Width           =   2415
  179.    End
  180. DefInt A-Z
  181. Dim OldPos
  182. Sub Command1_Click ()
  183.     Unload Me
  184. End Sub
  185. Sub Form_Paint ()
  186.     For X = 1 To 3
  187.         For Z = 1 To X
  188.             Data1(X).Recordset.MoveNext
  189.         Next
  190.     Next
  191.     VScroll1.Max = Data1(1).Recordset.RecordCount - 3
  192. End Sub
  193. Sub VScroll1_Change ()
  194.     NewPos = VScroll1.Value
  195.     If OldPos < NewPos Then
  196.         For Z = 1 To NewPos - OldPos
  197.         For X = 0 To 3
  198.             Data1(X).Recordset.MoveNext
  199.         Next
  200.         Next
  201.     Else
  202.         For Z = 1 To OldPos - NewPos
  203.         For X = 3 To 0 Step -1
  204.             Data1(X).Recordset.MovePrevious
  205.         Next
  206.         Next
  207.     End If
  208.     OldPos = NewPos
  209. End Sub
  210. Sub VScroll1_Scroll ()
  211.     NewPos = VScroll1.Value
  212.     If OldPos < NewPos Then
  213.         For Z = 1 To NewPos - OldPos
  214.         For X = 0 To 3
  215.             Data1(X).Recordset.MoveNext
  216.         Next
  217.         Next
  218.     Else
  219.         For Z = 1 To OldPos - NewPos
  220.         For X = 3 To 0 Step -1
  221.             Data1(X).Recordset.MovePrevious
  222.         Next
  223.         Next
  224.     End If
  225.     OldPos = NewPos
  226. End Sub
  227.